#lang rosetta-racket


(provide slice-box-rectangle)


(define (slice-box-rectangle)
  (lift
   (thunk (displayln "slicing a box in half with a rectangular surface"))
   (slice
    (box 1 2 3)
    (rectangle-surface 4 4))))